program Project1; //Zadanie 4.2

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n = 10;

type
  tablica = array[1..n] of integer;

var
  i : integer;
  dane : tablica;

begin
  for i:=1 to n do
    begin
      dane[i]:=n-i+1;
      Writeln('dane[',i,'] = ',dane[i]);
    end;

  Readln; //czeka na nacisniecie klawisza Enter
end.
